home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE07 / HTMLVIEW / HTMLVIEW.ZIP / DEMOSRC.ZIP / FONTDLG.DFM / FONTDLG.txt
Encoding:
Text File  |  1995-11-02  |  3.1 KB  |  162 lines
  1. object FontForm: TFontForm
  2.   Left = 200
  3.   Top = 153
  4.   Width = 315
  5.   Height = 366
  6.   Caption = 'Edit Default Font and Colors'
  7.   Font.Color = clWindowText
  8.   Font.Height = -13
  9.   Font.Name = 'System'
  10.   Font.Style = []
  11.   PixelsPerInch = 96
  12.   OnCreate = FormCreate
  13.   OnShow = FormShow
  14.   TextHeight = 16
  15.   object Label1: TLabel
  16.     Left = 225
  17.     Top = 7
  18.     Width = 66
  19.     Height = 16
  20.     Caption = '&Font Color'
  21.     FocusControl = FontColorGrid
  22.   end
  23.   object Label2: TLabel
  24.     Left = 225
  25.     Top = 99
  26.     Width = 65
  27.     Height = 16
  28.     Caption = '&Link Color'
  29.     FocusControl = HotSpotColorGrid
  30.   end
  31.   object Label3: TLabel
  32.     Left = 225
  33.     Top = 189
  34.     Width = 61
  35.     Height = 16
  36.     Caption = 'Font &Size'
  37.     FocusControl = FontSizeEdit
  38.   end
  39.   object Label4: TLabel
  40.     Left = 9
  41.     Top = 200
  42.     Width = 70
  43.     Height = 16
  44.     Caption = 'Font &Name'
  45.     FocusControl = FontListBox
  46.   end
  47.   object Label5: TLabel
  48.     Left = 122
  49.     Top = 200
  50.     Width = 77
  51.     Height = 16
  52.     Caption = '&Background'
  53.     FocusControl = BackListBox
  54.   end
  55.   object FontListBox: TListBox
  56.     Left = 11
  57.     Top = 217
  58.     Width = 87
  59.     Height = 115
  60.     Font.Color = clBlack
  61.     Font.Height = -11
  62.     Font.Name = 'MS Sans Serif'
  63.     Font.Style = []
  64.     ItemHeight = 13
  65.     ParentFont = False
  66.     Sorted = True
  67.     TabOrder = 0
  68.     OnClick = ListBoxClicks
  69.   end
  70.   object FontColorGrid: TColorGrid
  71.     Left = 225
  72.     Top = 23
  73.     Width = 72
  74.     Height = 72
  75.     ClickEnablesColor = True
  76.     ForegroundIndex = -1
  77.     ForegroundEnabled = False
  78.     BackgroundEnabled = False
  79.     Selection = 3
  80.     TabOrder = 2
  81.     TabStop = True
  82.     OnChange = FontColorGridChange
  83.   end
  84.   object HotSpotColorGrid: TColorGrid
  85.     Left = 225
  86.     Top = 114
  87.     Width = 72
  88.     Height = 72
  89.     ClickEnablesColor = True
  90.     ForegroundIndex = -1
  91.     ForegroundEnabled = False
  92.     BackgroundEnabled = False
  93.     TabOrder = 3
  94.     TabStop = True
  95.     OnChange = HotSpotColorGridChange
  96.   end
  97.   object BackListBox: TListBox
  98.     Left = 122
  99.     Top = 217
  100.     Width = 87
  101.     Height = 115
  102.     Font.Color = clBlack
  103.     Font.Height = -11
  104.     Font.Name = 'MS Sans Serif'
  105.     Font.Style = []
  106.     ItemHeight = 13
  107.     ParentFont = False
  108.     TabOrder = 1
  109.     OnClick = ListBoxClicks
  110.   end
  111.   object OKButton: TButton
  112.     Left = 234
  113.     Top = 274
  114.     Width = 54
  115.     Height = 25
  116.     Caption = 'O&K'
  117.     Default = True
  118.     ModalResult = 1
  119.     TabOrder = 5
  120.   end
  121.   object Cancel: TButton
  122.     Left = 234
  123.     Top = 301
  124.     Width = 54
  125.     Height = 25
  126.     Caption = 'Cancel'
  127.     ModalResult = 2
  128.     TabOrder = 7
  129.   end
  130.   object ResetButton: TButton
  131.     Left = 234
  132.     Top = 246
  133.     Width = 54
  134.     Height = 25
  135.     Caption = '&Reset'
  136.     TabOrder = 6
  137.     OnClick = ResetButtonClick
  138.   end
  139.   object FontViewer: THTMLViewer
  140.     Left = 11
  141.     Top = 13
  142.     Width = 202
  143.     Height = 184
  144.     ViewImages = False
  145.     TabOrder = 8
  146.     BorderStyle = bsSingle
  147.     HistoryMaxCount = 0
  148.     DefFontName = 'Times New Roman'
  149.   end
  150.   object FontSizeEdit: TSpinEdit
  151.     Left = 225
  152.     Top = 206
  153.     Width = 65
  154.     Height = 26
  155.     MaxValue = 24
  156.     MinValue = 6
  157.     TabOrder = 4
  158.     Value = 12
  159.     OnChange = ListBoxClicks
  160.   end
  161. end
  162.